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by 
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April 28, 1961 

As of the present, the following parts of LISP 1.5 are 
working. This is an excerpt from the forth coming LISP 1.5 
Programmer* s Manual. 

4.4 Arithmetic in LISP 

LISP 1,5 has provisions for handling fixed point and floating 
point numbers and logical words. Available functions include the 
arithmetic operations, arithmetic predicates, and logical and 
shifting operations for logical words. 

Numbers read into a LISP program are treated as constants. 
They need not be quoted. Numbers read in are marked internally as 
being either fixed point or floating point, with octal numbers or 
bit patterns treated as fixed point numbers 

a. Floating Point Numbers 

The rules for punching these for the read program are: 

1. A decimal point must be included but not as the first or 
last character. 

2. A plus sign or minus sign may precede the number. The 
plus sign is not required. 

3. Exponent indication is optional. The letter E followed 
by the exponent to the base 10 is written directly after the 
number. Toe exponent consists of one or two digits which may be 
preceded by a plus or minus sign. 





>- 10 3 ® 


- 2 - 


128 -128 

Absolute values must lie between 2 and 2 


and 10' 38 ). 


5. Significance is limited to eight decimal digits. 

6 . Any possible ambiguity between the decimal point and the 
point used in dot notation may be eliminated by putting spaces 
before and after the LISP dot* This is not required where there 
is no ambiguity0 


These are 
the same 


following are examples of correct floating 
all different forma for the same number, 
effect when read in* 

60.0 

6 ,El 


point numbers 
and will have 


600.00E-1 

0.6E+2 

The forms „£5+2 and 60* are incorrect because the decimal 
point is the first or last character* 


Fixed Point Numbers 

These are written as integers with an optional sign 


Examples: 


-IT 

32719 


Cc Octal Numbers or Logical Words 

The correct form consists of 
1. A sign (optional) 

2* Up to 12 digits (0 through J )* 

3-- The letter Q* 

4. An optional scale factor* The scale factor is a decimal 
integer, no sign allowed* 

Examples are: 

a. 777Q 

b. 777Q4 

c. -3Q11 

d* -7Q11 
e * +7Q11 
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The effect of the read program on octal numbers Is as 
follows. 

1. The number Is placed in the accumulator three bits per 
octal digit with zero f s added to the left hand side, to make 
twelve digits. The right most digit is placed in bits 33-35, 
the twelfth digit 13 placed in bits P, 1, and 2. 

2. The accumulator is leftshifted three bits (one octal digit) 

times the scale factor. Thus the scale factor is an exponent to 
the base eight. 

3. If there is a negative sign, it is OR-ed into the P bit. 

The number is then stored as a logical word. 

The examples a through e above will be converted to the 
following octal words. Note that because the sign is OR-ed with 
the 36th numerical bit, c, £> and e are equivalent. 

a. OOOOOOOOOT77 

b. 000007770000 

c. 700000000000 

d. 700000000000 

e. ^00000000000 

d. Arithmetic Functions 

These functions may be applied to mixed expressions involving 
fixed point and floating point numbers. If the expression contains 
at least one floating point number, all numbers will be floated, 
and the value will be a floating point number. Octal numbers are 
considered as fixed point. 

plus [x 1 ;«.. j 3 is a function of n arguments whose value is 
the algebraic sum of the arguments. 

difference[xi;/] has as value the algebraic difference of its 
arguments. 

minus fx] changes the sign of its argument. 

timesCxgi...|X n J is a function of n arguments, whose value is 
the product (with correct sign) of its arguments. 




addl (xj has x+1 as its value. Tine value is fixed point or 
floating point depending on the argument. 

subtl CxJ ha3 x-1 as its value. 

nsaxfx 1 |...;x ] choses the largest of its arguments &3 its 
value. 




u • * 


!X n ] 


choses the smallest 


o * 


its 


arguments as its 


value. 


recip fxj computes 1/x. Hie reciprocal of any fixed point number 
is defined to be zero. 

These functions may occur inside of each other and may be 
used recursively. In some cases the arguments may be evaluated * 
before the arithmetic function is performed. We illustrate this 
with the following examples. 

Suppose that the evalquote operator is given the following 
doublet: 

APPLY 

{DIFFERENCE (PI 2) ((PI o 3.14159)) ) - 
The apply function expects a list of arguments already evaluated. 
Since PI is not a number, an error will result. 

Now consider the following doublet: 

EVAL 

( (DIFFERENCE PT 2) ((PI . 3*14159))) 

Eval will evaluate 2 and PI and then perform the function plus. 

"2" will evaluate to "2" because numbers are constants in LISP 1.5* 
"PI" will evaluate to ”3.14159" because it is tied to that number 
on the pair list. The correct answer will be 1.14159. 
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e. Arithmetic Predicates 

We now list the arithmetic predicates. The rules concerning 

mixed expressions and evaluation of arguments are the same as for 

the arithmetic functions. The valve of a predicate is NIL (false) 
or true. 


lessplxiy] -S true if x5y, s/idl false otherwise, 
greaterpfx] is true if x^y. 

zer-plx] is true* if x«0, or if lxl^3~*\ 
onep [xj. is true if x*i. 

njijjusgix] is true if x is negative. 

"-O' 1 is negative. 


nsbsrerx] io true if x Is u „ua,b er (fixed point or fioetigg point). 

fiSEtx) la true only if x la . .^ed point number. If , ls n0 fc 
a number at all, an error will x>eult. 


floatEtx) la sillw to fixplx) but fo. flxe d point nunbers. 
eguallx;yj works on lists, fixed point and floafclng 

point numbers. its value is true if the are 

identical lists, or identical numbers, Floafcln- p 0 j n |; 
numbers must be exactly equal for the value to be 


f. Logical Functions 

These operate on 36 bit patterns. The only acceptable argu¬ 
ments are fixed point numbers. These may be read in as octal or 
decimal integers, or they may be the result of a previous computation. 

logorfx^j...;x n 3 performs a logical OR on its arguments. 

logand[x^$...;x n J performs a logical AND on its arguments. 

♦ 

logxorfx^;performs .an exclusive OR 

(0 V 0-0, 1 V 0 - 1, 1 v 1 * 0). 
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g. Example 

J.n the beginning of this manual, an example of a recursive 
definition was given for hi* 


n! ** [n»0 X$T -*■ n« (n-ljl] 

To define this in a LISP program, we punch: 

DEFINE{( 

(FACTORIAL (LAMBDA <X) (COND 
((ZEFOP X) 1) 

(T (TIMES N (FACTORIAL (SUB1 N)))) ))) 

)) 


(End of action 4.4 LISP 1*5 Manual) 

If you have any complaints, bring them to 26-265* 


Note on special forms: 


Functions of an indefinite number of arguments are called 
special forms* Special forms are treated in the same manner as 
functions with the following exceptions: 

1* The apply function will not recognize a special form as 
its first argument. 

2. The evalquofce operator, when it encounters a special form 

as its first argument, gives the list of the form and its arguments 
to eval, i.e* 


evalquotei(fj(a,b,c,d)j - eval[(f,a,b,c,d);NIL) 
if f is a special form. 

Special forms include PLUS, TIMES, MAX, MIN, LOGOR, LOGAND, 
and LOGXOR. 

Consider the previous example 


APPLY 

(DIFFERENCE(PI 2) ((PI * 3-14159)) ) 



which we said would cause an error. If DIFFERENCE were changed to 
PLUS, another type of error would result because apply will not 
recognize a special form. Since evalquote will recognize special 
forms and evaluate them, the following example is correct. 

TIMES 

(2 (TIMES 3 5) 

The answer is 30. 

Read Program for Numbers 

Ther* is another method of reading in decimal numbers. It 
uses a binary scale factor B, and its result is a fixed point number. 
Examples are 

6E1B2 120 

6B2 12 

6.5B2 13 

6.3B2 12 

All LISP number conversion is done by Share UAE0C1, except 
for octal numbers. 

Winne ille pu informs us that *T # has been changed to 
VERITAS-NUNQUAM-PERIT. "-"should be written as an 11 punch. 

There is a new function for printing the time: TEMPUS-FUCJIT (). 

Chapter 4 
f. Arrays 

Provision is made in LISP 1.5 for allocating blocks of storage 
for data. The data may consist of list structure or data words. 
Arrays may have up to three indieies. 

To declare an array use the function array . Its argument is 
a list of arrays to be declared. Each one must be for list structure 
or non-list structure. 



Suppose ALPHA is to be a 10 x 10 array of list structure, and 
BETA a 5 x 5 x 5 array of non list structure. The array function is 

ARRAY (( 

(ALPHA (10,10) LIST) 

(BETA (5,5,5) NONLIST) )) 

To find the value of B 3 ^ 2 : (BETA 3,4,2) or (BETA I J K) 
with a Pair list. 


To set ALPHAj h to "YES”: (ALPHA (QUOTE SET) (QUOTE YES) 3 4) 


Array uses marginal Indexing for maximum speed. The total 
number of words used by an array whose size Is x Dg x is 

4 + + D^Dg + D^DgD^. If the array is 2 dimensional, » 1. 

If the array is 1 dimensional, and Dg * 1. 

To save space, specify dimensions in increasing order. 

ALPHA (3,4,5) takes less words than ALPHA (5,3,4). 


Ceropatabllity of LISP 1 and LISP 1.5. 

i <i ii i ~~ m ~ 0— ~ii i npMii ■< ■wiBirw »i<ii iii^ i — 

1. EVALQUOTE has two arguments while APPLY has three. To 
change a LISP 1 program for LISP 1.5 simply eliminate the p-list if 
it is null. If the p-list is needed, then the function apply is 
available in LISP 1.5, 

2. Arithmetic In LISP 1.5 is new, improved, and generally 
incompatible with LISP 1. 

3. LISP 1.5 has many extra features. There are being written 
up for the new LISP 1 Programmer*fa Manual. Until it comes, check 
in Room 26 - 265 . 



CS-TR Scanning Project 
Dor.ument Control Form 


Date : // / 30 /^£_ 


Report # /M ^ 

Each of the following should be identified by a checkmark: 
Originating Department: 

Artificial Intellegence Laboratory (Al) 

□ Laboratory for Computer Science (LCS) 


Document Type: 


□ Technical Report (TR) Technical Memo (TM) 

-s, 

□ Other:_ 


Document Information 

Originals are: 

Single-sided or 


Number of pages: 

Not to include DOD forms, printer intstructions, etc... original pages only. 


Intended to be printed as: 
Single-sided or 


□ Double-sided 


□ Double-sided 


Print type: 

□ Typewriter □ Offset Press 0 Laser Print 

□ InkJet Printer 0 Unknown other CO f / fi F H 

Check each if included with document: 

□ DOD Form □ Funding Agent Form D Cover Page 

Q Spine D Printers Notes d Photo negatives 

□ Other: __ - 

Page Data: 


Blank Pages<t>y page number). 
Photographs/Tonal Material (by page number)* 


* 


Other (note description/page number). 

Description: Page Number: 




Scanning Agent Signoff: 

Date Received: l( / 3v/2l 


Date Scanned: /X/ M / 9S 



Date Returned: /qL / 


Scanning Agent Signature: 


Rev 9/94 DS/LCS Document Control Form cstoform.ved 



Scanning Agent Identification Target 


Scanning of this document was supported in part by 

the Corporation for National Research Initiatives, 
using funds from the Advanced Research Projects 
Agency of the United states Government under 
Grant: MDA972-92-J1029. 


The scanning agent for this project was the 
Document Services department of the M.I.T 
Libraries. Technical support for this project was 
also provided by the M.I.T. Laboratory for 
Computer Sciences. 


Scanned 

Da,e: /W/s/ms 

M XT. Libraries 
Document Services 


darptrgt.wpw Rev. 9/94 


